home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
PASCAL
/
0193.ZIP
/
VAR.INC
< prev
next >
Wrap
Text File
|
1985-02-23
|
1KB
|
25 lines
Const MaxScreens = 8; { Number of Windows Allowed, do not Change }
Screen_seg = $B800; { Change to #B000 for MonoChrome, Change
then # sign to a Dollar sign Though. }
Data_Addr = $0000;
Fc : Array[1..4, 1..7] of Integer
= ((218, 196, 191, 179, 192, 196, 217),
(201, 205, 187, 186, 200, 205, 188),
(213, 205, 184, 179, 212, 205, 190),
(219, 219, 219, 219, 219, 219, 219));
type maxstr = string[80];
window_rec = record
x1,x2,y1,y2,c1,b1,w1,w2: Integer;
Screen: Array[1..4000] of byte;
end;
var Stack_Top,Last_Window_Num,
line_pos,F1 : Integer;
screen : Array[1..4000] of byte;
real_screen : Array[1..4000] of byte absolute Screen_Seg:Data_Addr;
Page_1 : Array[1..4000] of byte absolute Screen_Seg:$1000;
Imig : Array [1..MaxScreens] of Window_rec;
Original : Array[1..4000] of byte;
Coords : Array[1..8,1..MaxScreens] of Integer;